home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / cal14s13.arc / QREAD.PAS < prev    next >
Pascal/Delphi Source File  |  1989-04-08  |  609b  |  31 lines
  1.  
  2. (*
  3.  * QRead - Quick ReadLn Unit for Strings
  4.  *
  5.  * Written by Samuel Smith, 19-Nov-88
  6.  *
  7.  *)
  8.  
  9. {$S-,R-}
  10. {$D+,L+}
  11.  
  12. unit QRead;
  13.  
  14. interface
  15.  
  16.    procedure qReadLn( var fd: text;       {text file to read from}
  17.                       var dest: string;   {destination string}
  18.                       maxlen: word );     {sizeof dest string}
  19.  
  20.  
  21. implementation
  22.  
  23.    {$L qread.obj}
  24.    procedure qReadLn( var fd: text;       {text file to read from}
  25.                       var dest: string;   {destination string}
  26.                       maxlen: word );     {sizeof dest string}
  27.    external;
  28.  
  29. end.
  30.  
  31.